home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / faces.bas < prev    next >
Encoding:
BASIC Source File  |  1988-11-25  |  236 b   |  20 lines
  1. DIM Array%(563)
  2.  
  3. CIRCLE (50,20),40
  4. CIRCLE (35,12),5
  5. CIRCLE (65,12),5
  6. CIRCLE (50,20),8
  7. CIRCLE (50,18),30,,3.5,5.8
  8. PAINT (50,20),3,1
  9.  
  10. GET (0,0)-(99,39),Array%
  11.  
  12. CLS
  13. FOR x=0 TO 5
  14.   FOR y=0 TO 4
  15.     PUT (x*100,y*40),Array%
  16.   NEXT y
  17. NEXT x
  18.  
  19.  
  20.